home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 12.st / OBJMONO.ARC / READ_GET.LST < prev    next >
Encoding:
File List  |  1989-03-27  |  296 b   |  13 lines
  1. ' Example program for loading a file, which had been saved with the
  2. ' "GFA-BASIC \.GET" command, from the OPTIONS menu in GFA OBJECT.
  3. ' The file has to be saved as "TEST.GET".
  4. '
  5. Open "I",#1,"TEST.GET"
  6. L=Lof(#1)
  7. A$=Input$(L,#1)
  8. Close #1
  9. Do
  10.   Put Mousex,Mousey,A$
  11.   Exit If Mousek
  12. Loop
  13.